home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 20
/
64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64
/
listing 21
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
31 lines
5 s=54272:poke s+24,15:poke s,220:poke s+1,68:poke s+5,15:poke 6+6,215
10 poke s+7,120:poke s+8,100:poke s+12,15:poke s+13,215
15 printchr$(147):v=53248:poke v+21,1
20 for s1=12288 to 12350:read q1:poke s1,q1:next
25 for s2=12352 to 12414:read q2:poke s2,q2:next
30 for s3=12416 to 12478:read q3:poke s3,q3:next
35 poke v+39,15:poke v+1,68
40 printtab(160)"ich bin die tanzmaus ![154]"
45 p=192
50 for x=0 to 347 step 3
55 rx=int(x/256):lx=x-rx*256
60 poke v,lx:poke v+16,rx
70 if p=192 then gosub 200
75 if p=193 then gosub 300
80 poke 2040,p:for t=1 to 60:next
85 p=p+1:if p>194 then p=192
90 next
95 end
100 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
101 data 63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
102 data 31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
103 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
104 data 63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
105 data 31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
106 data 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
107 data 63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
108 data 1,255,224,1,252,0,3,254,0
109 data 7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
200 poke s+4,129:poke s+4,128:return
300 poke s+11,129:poke s+11,128:return